home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
art&graf.ix
/
art-3734
/
data
/
planet.mcl
< prev
next >
Wrap
Text File
|
1987-04-21
|
1KB
|
65 lines
% letters of "POLYFILM" rotating about a blue planet
% a la UNIVERSAL pictures intro... (best as a CFF)
type planet "\data\plan_180.3d";
type letterp "\data\p.3d";
type lettero "\data\o.3d";
type letterl "\data\l.3d";
type lettery "\data\y.3d";
type letterf "\data\f.3d";
type letteri "\data\i.3d";
type letterm "\data\m.3d";
prefs "\data\planet.prf";
palette 1;
object p type letterp looking [60*16,10*16,0];
object o type lettero looking [50*16,10*16,0];
object l type letterl looking [40*16,10*16,0];
object why type lettery looking [30*16,10*16,0];
object f type letterf looking [20*16,10*16,0];
object i type letteri looking [12*16,10*16,0];
object l2 type letterl looking [4*16,10*16,0];
object m type letterm looking [-8*16,10*16,0];
object earth type planet at [0,0,700] looking [180*16,0,0];
camera cam;
lightsource lig at [0,0,0];
p.main[]{
rotate speed [48,0,0];
while [p.a<>(16*60)-48]{
move to [earth.x, earth.y, earth.z] forward [250];
frame;
}
stop rotation;
endsim;
}
o.main[]{
p.main[];
}
l.main[]{
p.main[];
}
why.main[]{
p.main[];
}
f.main[]{
p.main[];
}
i.main[]{
p.main[];
}
l2.main[]{
p.main[];
}
m.main[]{
p.main[];
}
earth.main[]{wait;}
cam.main[]{wait;}
lig.main[]{wait;}